10 DEFINTA-Z:DIMM(15):A=256:D=6144:COLOR7,4,1:KEYOFF:SCREEN1,0,0:WIDTH32:FORI=384TO728:VPOKEI,VPEEK(I)ORVPEEK(I)/2:NEXT:VPOKE8198,180:VPOKE8199,180:VPOKE8192,132:VPOKE8196,84:VPOKE8194,212:VPOKE8195,25:FORI=64TO111:READX:VPOKEI,X:NEXT
20 CLS:LOCATE11,10:PRINT"WATERWORM":FORI=6432TO6463:VPOKEI,23:VPOKEI+64,23:NEXT:LOCATE2,3:PRINT"BASIC 10  LINER CONTEST 2020":LOCATE6,20:PRINT"by Jos'b from Spain"
30 IFNOT(STRIG(0))GOTO30ELSECLS:S=0:C=0:L=2:F=8:P=6512:M(0)=P:M(1)=P:M(2)=P:VPOKEA,0:VPOKEB,0:FORI=DTOD+31:VPOKEI,28:NEXT:FORI=0TO23:VPOKED+I*32,28:VPOKED+I*32+31,28:NEXT:FORI=D+736TOD+767:VPOKEI,28:NEXT:PLAY"v11t255m4100"
40 IFVTHENFORI=1TOV*4:X=INT(704*RND(-TIME)+32):VPOKED+X,28:VPOKED+X+1,28:VPOKED+X+32,28:VPOKED+X+33,28:NEXT
50 VPOKEB,0:VPOKEA,49:VPOKEM(L),32:VPOKEM(L-1),13:VPOKEM(1),12:VPOKEP,F:OS=S:Z=STICK(0):S=32*(Z=1)-(Z=3)-32*(Z=5)+(Z=7)-OS*(Z=0):P=P+S:E=-VPEEK(P)*(S<>0)-32*(S=0):F=-8*(S=-32ORS=0)-9*(S=1)-10*(S=32)-11*(S=-1)
60 OC=C:C=-(C=0)*(INT(RND(-TIME)*768)+6144)-OC*(C<>0):J=VPEEK(C):IFJ<>32ANDOC=0THENC=0:GOTO60
70 VPOKEC,3:B=A:A=A+1+8*(A=263):FORI=LTO0STEP-1:M(I+1)=M(I):NEXT:M(0)=P:J=VPEEK(P):IFJ=3THENC=0:L=L+1:PLAY"eg":IFL=15THENVPOKEM(L),32:VPOKEM(L-1),13:VPOKEM(1),12:VPOKEP,F:V=V+1:R=R+L*10:LOCATE11,10:PRINT"LEVEL";V:LOCATE11,11:PRINT"SCORE";R:GOTO30
80 IF(E=32ORE=3)GOTO50ELSEPLAY"gc":VPOKEM(L),32:VPOKEM(L-1),13:VPOKEM(1),12:VPOKEP,F:LOCATE11,10:PRINT"GAME OVER":LOCATE11,11:PRINT"SCORE";R+L*10
90 IFNOT(STRIG(0))GOTO90ELSER=0:V=0:GOTO20
100 DATA60,126,219,153,255,189,153,129,252,22,51,127,127,51,22,252,129,153,189,255,153,219,126,60,63,104,204,254,254,204,104,63,0,24,36,66,66,36,24,0,0,0,24,36,36,24,0,0
